home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
bitcat.zip
/
BVIEW.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-10-07
|
4KB
|
87 lines
BVIEW
(Bitmap Catalog - Written By: Sean Bishop
ffffffffffffff`
ffffffffffffff`
Form1*
Picture1
VScroll1
Timer1
File1
*.bmp;*.rle
Picture2
&Options
&Change Dir...
&About
&Exit
EXT_Click
Form_ClickG
Form_Resize
StretchBlt
destDC
srcDC
hSrch
SRCCOPY
XWidth
ScaleWidth.
YWidthf
ScaleHeight
Width
Height
CDIR_Click
Browse"
File1_Click
File1_PathChange
File1
ListCount
VScroll1
Enabled
ListC
PTemp
Picture
BitBlt3
Picture1
Picture2V
Picture2_Click
Picture1_Click
Picture1_Paint
Form_Paint
Form_Load
BView
Screen
Timer1_Timer
Timer1
VScroll1_Change
Value
AutoRedraw
ABT_Click
CurrentY
CurrentX
MousePointer
OPT_Click
Declare the StretchBlt GDI routine to resize the bitmaps
EXT_Click
CDIR_Click
If cancel was selected then exitp
File1_PathChange
This is the routine to load and display the graphics
Change mousepointer to hourglass
Clear Picture Boxo
Get number of files to load
If no files in list then exit
This increments the display to show all pictures
FN$ is directory - This gets the filename to load
This loads the picture into the temp picture box for resizing
This resizes and places the graphic in the main display areas
This sets the current horizontal text position
This sets the current horizontal text position
This prints the filename under the picturep
Update display(
Change mouse to normal arrowt
Form_Load
Center form on screenn
Timer1_Timer
This disables timer, once the program is loaded and the first set loaded it is not needed!o
File1_PathChange ' Start picture process
VScroll1_Change
ABT_Click